Aktualni uzivatel
Otázka od: netusil.roman@vspardubice.cz
18. 11. 2003 8:11
Dobry den.
Potrebuji zjistit nazev aktualne prihlaseneho uzivatele systemu Windows a jeho
cesta ke slozce Dokumenty.
WinXP, Win2000, Delphi6 Prof.
Roman
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Jiri Virt
18. 11. 2003 8:10
uses ShellAPI,....
function GetCurrentUserName:string;
var
Buffer: Array[0..MAX_PATH+1] of Char;
Size: DWORD;
begin
Size:=1024;
GetUserName(Buffer,Size);
result:=StrPas(Buffer);
end;
function GetFolderDoc:string;
var
Retezec:PChar;
pid:PItemIDList;
begin
GetMem(Retezec,255);
SHGetSpecialFolderLocation(0,CSIDL_PERSONAL,pID);
SHGetPathFromIDList(PID,Retezec);
result:=Retezec;
FreeMem(Retezec,255);
end;
Jirka Virt
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Petr Vones
18. 11. 2003 16:31
From: <netusil.roman@vspardubice.cz>
> Potrebuji zjistit nazev aktualne prihlaseneho uzivatele systemu Windows a
> jeho cesta ke slozce Dokumenty.
Funkce GetPersonalFolder a GetLocalUserName v JclSysInfo:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
Petr Vones
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: netusil.roman@vspardubice.cz
19. 11. 2003 12:43
Ahoj, Jirko.
Diky za odpoved.
Ve funkci GetFolderDoc:string mam problem s typem PItemIDList a s funkcemi
SHGetSpecialFolderLocation a SHGetPathFromIDList. Odkud to je?
Muzes mi poradit?
Diky, Roman
-----Original Message-----
From: Jiri Virt [mailto:virt@volny.cz]
Sent: Tuesday, November 18, 2003 8:04 AM
To: delphi-l@clexpert.cz
Subject: Re: Aktualni uzivatel
uses ShellAPI,....
function GetCurrentUserName:string;
var
Buffer: Array[0..MAX_PATH+1] of Char;
Size: DWORD;
begin
Size:=1024;
GetUserName(Buffer,Size);
result:=StrPas(Buffer);
end;
function GetFolderDoc:string;
var
Retezec:PChar;
pid:PItemIDList;
begin
GetMem(Retezec,255);
SHGetSpecialFolderLocation(0,CSIDL_PERSONAL,pID);
SHGetPathFromIDList(PID,Retezec);
result:=Retezec;
FreeMem(Retezec,255);
end;
Jirka Virt
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Jiri Virt
19. 11. 2003 12:13
unita ShlObj.pas ...
Jirka
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)